home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / util / simulare.sit / Simula 4.07 Reference / card_10546.txt < prev    next >
Text File  |  1989-05-02  |  4KB  |  198 lines
  1. -- card: 10546 from stack: in.07 Reference
  2. -- bmap block id: 39504
  3. -- flags: 0000
  4. -- background id: 8963
  5. -- name: HyperTalk
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global crossRefDepth
  9.   -- After coming to a contents card, the return button comes to
  10.   -- here and does not retrace any old cross references.
  11.   put 0 into crossRefDepth
  12.   if the userLevel < 5 then
  13.     show card field 1
  14.     show button OK
  15.   end if
  16. end openCard
  17.  
  18.  
  19. -- part 41 (field)
  20. -- low flags: 81
  21. -- high flags: 2004
  22. -- rect: left=135 top=120 right=222 bottom=377
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 3
  27. -- text size: 14
  28. -- style flags: 0
  29. -- line height: 18
  30. -- part name: FullMenus
  31.  
  32.  
  33. -- part 58 (field)
  34. -- low flags: 81
  35. -- high flags: 2004
  36. -- rect: left=217 top=32 right=109 bottom=449
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 0
  40. -- font id: 3
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: 
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   hide card field 2
  48. end mouseUp
  49.  
  50.  
  51. -- part 42 (button)
  52. -- low flags: 80
  53. -- high flags: 8003
  54. -- rect: left=291 top=219 right=241 bottom=329
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: OK
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   play harpsichord "ee c"
  66.   hide button "OK"
  67.   hide card field "fullmenus"
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 68 (field)
  73. -- low flags: 81
  74. -- high flags: 2004
  75. -- rect: left=41 top=87 right=275 bottom=318
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Utskrift
  84.  
  85.  
  86. -- part 70 (button)
  87. -- low flags: 80
  88. -- high flags: 8003
  89. -- rect: left=186 top=241 right=263 bottom=259
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Avbryt
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   hide button "Skriv ut"
  101.   hide button Avbryt
  102.   hide card field Utskrift
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 71 (button)
  108. -- low flags: 80
  109. -- high flags: 8003
  110. -- rect: left=91 top=241 right=263 bottom=165
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Skriv ut
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   hide button "Skriv ut"
  122.   hide button Avbryt
  123.   hide card field Utskrift
  124.   open printing with dialog
  125.   print 163 cards
  126.   close printing
  127. end mouseUp
  128.  
  129.  
  130.  
  131. -- part 72 (button)
  132. -- low flags: 00
  133. -- high flags: A004
  134. -- rect: left=19 top=257 right=280 bottom=110
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: class syntax
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   go to card id 5134
  146. end mouseUp
  147.  
  148.  
  149.  
  150.  
  151. -- part contents for background part 43
  152. ----- text -----
  153. 267,189
  154.  
  155. -- part contents for card part 41
  156. ----- text -----
  157. F├╢r att kunna anv├ñnda HyperTalk f├╢r att se och ├ñndra manus, m├Ñste ΓÇ¥Skriva manusΓÇ¥ vara f├╢rkryssat p├Ñ kortet Inst├ñllningar i Bas-bunten.
  158.  
  159. -- part contents for card part 58
  160. ----- text -----
  161. F├╢r mera teknisk dokumentation om HyperTalk, s├Ñ finns det b├╢cker i bokhandeln eller hos din ├Ñterf├╢rs├ñljare.
  162.  
  163. -- part contents for card part 68
  164. ----- text -----
  165. Klicka p├Ñ knappen ΓÇ¥Skriv utΓÇ¥ h├ñr nedanf├╢r s├Ñ visas en dialogruta d├ñr du kan v├ñlja olika s├ñtt att skriva ut avsnittet om HyperTalk i Hj├ñlp. Det tar kanske ett tag att skriva ut beroende p├Ñ vilken skrivare du anv├ñnder och vad du angivit f├╢r format i dialogrutan. 
  166. (Kort i 1/4 storlek g├Ñr fortast men d├Ñ blir korten ganska sm├Ñ.)
  167.  
  168. -- part contents for background part 59
  169. ----- text -----
  170. Simple class example
  171.  
  172. -- part contents for background part 58
  173. ----- text -----
  174. class Pen;
  175. begin
  176.     procedure Draw;
  177.     begin
  178.     end --- Draw --- ;
  179.  
  180.    procedure Move;
  181.    begin
  182.    end --- Move ---;
  183. end --- Pen ---;
  184.  
  185.  
  186.  
  187. -- part contents for background part 60
  188. ----- text -----
  189. This class can be used to create a pen;
  190. declare a pen variable:
  191.     ref(pen) myPen;
  192.  
  193. and assign it an actual pen:
  194.     myPen:-new Pen;
  195.  
  196. The procedures in Pen can now be called with dot-notation:
  197.      myPen.draw;  myPen.move;
  198.